home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / examples / pwd.r < prev    next >
Text File  |  1994-04-25  |  656b  |  44 lines
  1. //
  2. // Randomly generate passwordds
  3. // Ian Searle (11/6/91)
  4. //
  5.  
  6. alpha = ["a", "b", "c", "d", "e", "f", "g", "h", "i", ...
  7.          "j", "k", "l", "m", "n", "o", "p", "q", "r", ...
  8.          "s", "t", "u", "v", "w", "x", "y", "z" ];
  9.  
  10. //
  11. // Global set-up
  12. //
  13.  
  14. srand( "clock" );
  15.  
  16. pwd = function()
  17. {
  18.   local(i, PWD, tmp);
  19.  
  20.   tmp = "";
  21.   rand("uniform", 1, 26);
  22.   for(i in 1:6) {
  23.     PWD[i]   = alpha[ irand() ];
  24.   }
  25.  
  26.   rand("uniform", 0, 9);
  27.   
  28.   sprintf(tmp, "%i", irand());
  29.   PWD[7] = tmp;
  30.   sprintf(tmp, "%i", irand());
  31.   PWD[8] = tmp;
  32.  
  33.   return PWD;
  34. }
  35.  
  36. //
  37. // Return an integer random number between 1 and 26
  38. //
  39.  
  40. irand = function()
  41. {
  42.   return int( rand() );
  43. }
  44.